home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
COMAL
/
T-COMAL Today
/
(k)t9.d64
/
proc.1520driver
< prev
next >
Wrap
Text File
|
2007-02-28
|
2KB
|
88 lines
0010 //
0020 ╨╥╧├ PñOPEN(SA) ├╠╧╙┼─
0030 ╙┼╠┼├╘ ╧╒╘╨╒╘ "U6:/S"+╙╘╥$(SA)
0040 ┼╬─╨╥╧├ PñOPEN
0050 //
0060 ╨╥╧├ PñCLOSE ├╠╧╙┼─
0070 ╙┼╠┼├╘ ╧╒╘╨╒╘ "DS:"
0080 ┼╬─╨╥╧├ PñCLOSE
0090 //
0100 ╨╥╧├ PñCHAR(C$)
0110 PñOPEN(6)
0120 ╨╥╔╬╘ 1
0130 PñOPEN(0)
0140 ╔╞ C$<>"" ╘╚┼╬
0150 ╨╥╔╬╘ C$,
0160 ┼╠╙┼
0170 ╨╥╔╬╘ C$
0180 ┼╬─╔╞
0190 PñCLOSE
0200 ┼╬─╨╥╧├ PñCHAR
0210 //
0220 ╨╥╧├ PñHOME
0230 PñOPEN(1)
0240 ╨╥╔╬╘ "H"
0250 PñCLOSE
0260 ┼╬─╨╥╧├ PñHOME
0270 //
0280 ╨╥╧├ PñINIT
0290 PñOPEN(1)
0300 ╨╥╔╬╘ "I"
0310 PñCLOSE
0320 ┼╬─╨╥╧├ PñINIT
0330 //
0340 ╨╥╧├ PñMOVETO(X,Y)
0350 PñOPEN(1)
0360 ╨╥╔╬╘ "M";X;├╚╥$(29);Y;├╚╥$(29)
0370 PñCLOSE
0380 ┼╬─╨╥╧├ PñMOVETO
0390 //
0400 ╨╥╧├ PñDRAWTO(X,Y)
0410 PñOPEN(1)
0420 ╨╥╔╬╘ "D";X;├╚╥$(29);Y;├╚╥$(29)
0430 PñCLOSE
0440 ┼╬─╨╥╧├ PñDRAWTO
0450 //
0460 ╨╥╧├ PñMOVE(X,Y)
0470 PñOPEN(1)
0480 ╨╥╔╬╘ "R";X;├╚╥$(29);Y;├╚╥$(29)
0490 PñCLOSE
0500 ┼╬─╨╥╧├ PñMOVE
0510 //
0520 ╨╥╧├ PñDRAW(X,Y)
0530 PñOPEN(1)
0540 ╨╥╔╬╘ "J";X;├╚╥$(29);Y;├╚╥$(29)
0550 PñCLOSE
0560 ┼╬─╨╥╧├ PñDRAW
0570 //
0580 ╨╥╧├ PñRESET
0590 PñOPEN(7)
0600 ╨╥╔╬╘
0610 PñCLOSE
0620 ┼╬─╨╥╧├ PñRESET
0630 //
0640 ╨╥╧├ PñCOLOR(COLOR)
0650 PñOPEN(2)
0660 ╨╥╔╬╘ COLOR
0670 PñCLOSE
0680 ┼╬─╨╥╧├ PñCOLOR
0690 //
0700 ╨╥╧├ PñCHARSIZE(SIZE)
0710 PñOPEN(3)
0720 ╨╥╔╬╘ SIZE
0730 PñCLOSE
0740 ┼╬─╨╥╧├ PñCHARSIZE
0750 //
0760 ╨╥╧├ PñROTCHAR(ROT)
0770 PñOPEN(4)
0780 ╨╥╔╬╘ ROT
0790 PñCLOSE
0800 ┼╬─╨╥╧├ PñROTCHAR
0810 //
0820 ╨╥╧├ PñSCRIBE(BRK)
0830 PñOPEN(5)
0840 ╨╥╔╬╘ BRK
0850 PñCLOSE
0860 ┼╬─╨╥╧├ PñSCRIBE
0870 //